
   1 CLEAR ;BC=RND (256);FC=BC+4+RND (32)×8;NT=1;CY=0;PRINT "  NUMBER OF PLAYERS 1-2?";K=KP-48;P=RND (2);MU=16
   2 C=0;IF (K<1)+(K>2)GOTO 1
   3 FOR A=1TO 52;@(A)=3;NEXT A;CLEAR ;@(50)=10;@(51)=10;CY=16;FOR A=1TO 7;CX=-36;PRINT "N N N N N N N";NEXT A;B=-25
   4 FOR A=2TO 6;C=16;MU=16;GOSUB 91;@(A)=2;C=-32;GOSUB 91;@(A+42)=2;B=B+12;NEXT A;C=8
   5 FOR A=8TO 36STEP 7;MU=16;B=-37;GOSUB 32;@(A)=1;B=35;GOSUB 32;@(A+6)=1;C=C-8;NEXT A;O=1
   6 A=-37;D=16;BOX -2,-9,97,57,3;BOX -2,-8,95,56,3;IF K=1P=1
   7 C=32;B=-55;GOSUB 32;B=54;GOSUB 91;GOTO 19
   8 BOX A,-8,9,55,3;BOX -1,D,85,9,3;RETURN 
   9 CY=24;CX=-31;GOSUB 8;PRINT "ILLEGAL MOVE";NT=30;MU=1000;MU=900;NT=1;BOX 0,24,75,8,2;GOTO 40
  10 Q=0;FOR Z=D+8TO D-8STEP -8;FOR U=A-11TO A+13STEP 12;IF PX(U,Z)Q=Q+1
  11 NEXT U;NEXT Z;IF Q=1CY=24;CX=-22;PRINT "GAME OVER";IF KPRUN 
  12 RETURN 
  14 E=((A+47)÷12)+1;F=((16-D)÷8)+1;F=(7×F)-(7-E);IF C=9RETURN 
  15 IF O=1X=A;Y=D;IF @(F)#3GOTO 9
  16 IF (ABS(Y-D)>8)+(ABS(A-X)>12)+(@(F)=0)GOTO 9
  17 GOSUB 8;MU=16;BOX A,D,7,7,2;BOX A,D,5,5,1;IF O=2BOX X,Y,5,5,2
  18 X=A;Y=D;O=2;Z=@(F);@(Z+49)=@(Z+49)-1;@(F)=0;P=P+1;NT=0;IF P>2P=1
  19 CY=40;PRINT "  #1=",#2,@(50),"   *SCORE*   #2=",#2,@(51);NT=1;GOSUB 10;CX=-31;PRINT "GO PLAYER #",#1,P;GOTO 35
  21 Z=R+8;U=S-11;G=0;GOTO 21+H
  22 I=1;GOTO 25
  23 I=3;GOTO 25
  24 I=2
  25 IF PX(U,Z)A=U;D=Z;GOSUB 14;IF @(F)=I C=0;L=-37;M=16;A=-36;D=M;BOX 0,32,72,8,2;GOTO 28
  26 Q=Q+1;U=U+12;IF Q=3Q=0;Z=Z-8;G=G+1;U=S-11;IF G=3H=H+1;GOTO 21
  27 GOTO 25
  28 GOSUB 8;IF U>L+1L=L+12
  29 IF Z<M M=M-8
  30 IF A+1=UIF D=ZGOTO 15
  31 GOSUB 8;A=L;D=M;MU=200;GOTO 28
  32 BOX B,C,7,7,2;BOX B,C+3,3,1,1;BOX B,C+2,5,1,1;BOX B,C+1,7,2,1;BOX B-1,C+1,2,1,3;BOX B+2,C+1,2,1,3
  33 BOX B,C-1,5,1,1;BOX B,C-1,3,2,3;BOX B,C-3,1,1,1;RETURN 
  35 IF K=1IF P=2H=1;Q=0;C=9;R=D;S=A;CY=32;CX=-36;PRINT "     HMM..  ";GOTO 21
  40 GOSUB 8;GOTO 60
  50 IF TR(P)GOTO 14
  60 L=0;M=0;IF JX(P)=0IF JY(P)=0GOTO 50
  70 GOSUB 8;L=JX(P)×12;M=JY(P)×8;IF (L+A<-37)+(L+A>36)L=0;A=-37
  80 IF (M+D<-32)+(M+D>16)M=0;D=16
  90 A=A+L;D=D+M;GOSUB 8;GOTO 50
  91 BOX B,C,8,8,2;BOX B-2,C+3,1,1,1;BOX B+2,C+3,1,1,1;BOX B,C+2,3,1,1;BOX B,C,5,3,1;BOX B-2,C,2,1,3;BOX B+3,C,2,1,3
  92 BOX B,C-1,5,1,1;BOX B,C-2,3,1,1;BOX B,C-2,1,2,3;BOX B,C+2,1,1,3;RETURN 
:RETURN ;RUN 
>